home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / tcl / itcl1_31.z / itcl1_31 / tcldev / itcl-1.3 / tests / Baz.tcl < prev    next >
Encoding:
Text File  |  1993-09-23  |  672 b   |  24 lines
  1. #
  2. # Test class for [incr Tcl] test suite
  3. # ----------------------------------------------------------------------
  4. #   AUTHOR:  Michael J. McLennan       Phone: (215)770-2842
  5. #            AT&T Bell Laboratories   E-mail: aluxpo!mmc@att.com
  6. #
  7. #     SCCS:  @(#)Baz.tcl    1.1 (9/9/93)
  8. # ----------------------------------------------------------------------
  9. #            Copyright (c) 1993  AT&T  All Rights Reserved
  10. # ======================================================================
  11.  
  12. itcl_class Baz {
  13.     #
  14.     #  Avoid defining constructor/destructor
  15.     #
  16.  
  17.     #
  18.     #  Generic method for doing something in "Baz" interp
  19.     #
  20.     method do {cmds} {
  21.         return "Baz says '[eval $cmds]'"
  22.     }
  23. }
  24.